home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / WILDCAT.T < prev    next >
Text File  |  1991-02-16  |  9KB  |  233 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  :
  6.  : Entry in %ZCUSER.IDS for Wildcat: remote,password,first,last
  7.  :   remote:   argument of "call" command
  8.  :   password: signon password (required)
  9.  :   first:    first name. Optional: assumed equal to %n1
  10.  :   last:     last name.  Optional: assumed equal to %n2
  11.  : Upload files listed in <bbs>.ul as follows:
  12.  :
  13.  : filename.ext,area,password,1st 40 chars of descr;2nd 40 chars of descr
  14.  :
  15.  : set password to 'none' if no password is desired.
  16.  : 'area' must be specified even if not required by the BBS
  17.  ena -K!Z p?0 findq "\n%remote," %lib/%ZCUSER.ids
  18.  if ? split z0 , , , "";if %z1 goto haveuser
  19.  pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
  20.  ife r nolog close;return
  21. haveuser:
  22.  ife !%z2 sets z2 %n1;ife !%z3 sets z3 %n2
  23.  set s6 "\b\b\b\b\b\b\b\b";set s7 "\r"
  24.  pat 21cp "]onStop? " n
  25.  pat 22cp "]onStop: " n
  26.  pat 23cp$ "to continue..." \r
  27.  pat
  28.  pat 0 "\rD'Bridge"
  29.  pat 1 "FrontDoor "
  30.  pat 2 "BinkleyT"
  31.  pat 3c "your First Name? " "\b\b%z2\r"
  32.  pat 4c "your Last Name?  " "\b\b%z3\r"
  33.  pat 5c "Password: " "\b\b%z1\r"
  34.  pat 6c "MM-DD-YY" \336%n3\r
  35.  pat 7c "%n3, "
  36.  pat 8c "MM/DD/YY" \336%n3\r
  37.  : pat -c "%n3, "
  38.  pat 9c "XXX-XXX-XXXX" \336%n4\r
  39.  pat 10c "%n4, "
  40.  pat 11c "Correct [" "@ife 7||8||10 mput y\r else mput n\r"
  41.  pat 12c "Press Return for a " \336\r
  42.  pat 13c "Press [ENTER] for a " \336\r
  43.  pat 15c "System Statistics" " "
  44.  pat 16c " NEW DOORS:" " "
  45.  pat 17c "a few fascinating facts" " "
  46.  pat 18c "No bulletins have been updated"
  47.  pat 19i "view the Bulletin Menu? ["
  48.  pat 20i "view the bulletin menu ["
  49. inituser:
  50.  wait -f45;if n bye;ife r nolog close;return
  51.  if 0||1 ena -t put \E\E ena -!t goback inituser
  52.  if 2 mput \E goback inituser
  53.  if 18||%y3>120 mput %s6\&n%s7;goto main
  54.  mput %s6\&n%s7;goto main : comment out to see new bulletins
  55.  mput %s6\&y%s7;sets z1 %y3
  56. bul:
  57.  pat; pat 0i "\nEnter Bulletin # to Read"
  58.  pat 2i "\nEnter bulletin number ["
  59.  wait -f30;if n bye;ife r nolog close;return
  60.  pat; pat 0i ":"
  61.  wait -f30;if n bye;ife r nolog close;return
  62.  split z1 " ," ""
  63.  mput %s6%z0\r;if %z0 goback bul
  64. main:
  65.  pat;pat 0i " Command >> "
  66.  pat 1i "\nMAIN MENU"
  67.  pat 2c "olor menus displayed" \336%s6\&n%s7
  68.  pat 3c "olor Menus displayed" \336%s6\&n%s7
  69.  pat 4c "mMAIN MENU: " %s6\&Y%s7
  70.  pat 5c "Q to Quit? " "@ife  2||3 mput %s6\&Q%s7;else mput %s6\&5%s7"
  71.  pat 6c "m] to Quit: " %s6\&F%s7
  72.  pat 7c "R] to Quit: " %s6\r
  73.  pat 8c "Would you like to view it [" \336y%s7
  74.  wait -f30;if n bye;ife r nolog close;return
  75.  if 1 pat;pat 1c "[G]";pat 2i "]: ";pat 3i "] >> ";wait -f1;if !c bye;ife r nolog close;return
  76.  if 0||1||!n pat;mput %s6\&h%s7;pat 0c "level? " %s6\&e%s7;pat 1c "to Quit: " %s6\&e%s7;pat 2 "\nMAIN MENU: ";wait -f30
  77.  if !c bye;ife r nolog close;return
  78.  pat;mput %s6\&M%s7
  79.  pat 0i "\nMAIN MENU: ";pat 1i "\nMESSAGE MENU: "
  80.  wait -f50;if n bye;ife r nolog close;return
  81.  if 0 goto donemsg
  82.  if f%n8/%remote.* expand %lib/wildmail.t %n8/%remote.*
  83.  if !c bye;ife r nolog close;return
  84.  p?0 findq "\n%remote/tomcat" %lib/%ZCUSER.ids;if ? goto donemsg
  85.  pat;mput %s6\&R%s7;pat 0 "\nMESSAGE MENU: ";pat 1 "Read:"
  86.  wait -f50;if n bye;ife r nolog close;return
  87.  if 0 goto nomsgs
  88.  pat;mput %s6\&S\r
  89. wcmsgwt:
  90.  pat
  91.  pat 0 "\nMESSAGE MENU:"
  92.  pat 1 "\nFolders to view ("
  93.  pat 2l "==================="
  94.  wait -f50;if n bye;ife r nolog close;return
  95.  ife 0 goto donemsg;if 1 mput %s6\r;goback wcmsgwt
  96.  ife r nolog close;ki;create -+S!i %n9/%remote.log
  97. mnext:
  98.  set z9 0;pat
  99.  pat 0c \n "@ife iz9,0 w;set z9 0"
  100.  pat 1 "MESSAGE MENU:" "@set z9 1"
  101.  pat 2c "Message has been received,"
  102.  pat 3 "]  ? " "@set z9 2"
  103.  pat 4 "] : " "@set z9 2"
  104.  pat 5 "]  : " "@set z9 2"
  105.  wait -f40;if n bye;ife r nolog close;return
  106.  ife iz9,0 goback mnext;if iz9,1 goto mdone
  107.  mput \b\b\b\b\b\b\b\b\b\b\b :ife 2 mput k
  108.  mput \r
  109.  pat
  110.  pat 0 "\nMESSAGE MENU:"
  111.  pat 1l "==================="
  112.  wait -f50;if n bye;ife r nolog close;return
  113.  if !0 ki;goback mnext
  114. mdone:
  115.  ki;display inhibit;ife r nolog close;display noinhibit
  116.  create -+ %n9/ZC%d%ano.LOG
  117. donemsg:
  118.  mput %s6\&Q%s7
  119.  pat;pat 0i "\nMAIN MENU: ";wait -f30;if n bye;ife r nolog close;return
  120. nomsgs:
  121.  pat;mput %s6\&F%s7
  122.  pat 0i "\nMAIN MENU: ";pat 1i "\nFILE MENU: "
  123.  wait -f50;if n bye;ife r nolog close;return
  124.  if 0 goto nofile
  125.  if !f%n8/%remote.ul goto nupl
  126.  display inhibit;open -!g %n8/%remote.ul;display noinhibit
  127.  ife t goto ulsk;goto dupl
  128. ulnx:
  129.  pat;pat 0i "\nFILE MENU: "
  130.  pat 1c "\nLine 1: " %s6%z3\r
  131.  pat 2c "\nLine 2: " %s6%z4\r
  132.  pat 3c "message about this file? " %s6\&n%s7
  133.  pat 4c "message about this file [" %s6\&n%s7
  134.  wait -f50;if n bye;ife r nolog close;return
  135. ulrj:
  136. ulsk:
  137.  grab z1;if !t goto dupl
  138.  setc z9 \032;if Iz9,z1 nolog closetx;goto dupl
  139.  if r w;echoc "%z1"
  140.  set z4 "";split z1 , , , ";" ""
  141.  if !%z0||%z1!=1||!%z2||!%z3||%z3>40||%z4>40 goback ulsk
  142.  setc z8 \L%z2;ife iz8,none set z7 n;else set z7 y
  143.  set z2 c
  144.  pat;mput %s6\&u%s7
  145.  pat 0 "\nFILE MENU: "
  146.  pat 1 "ile to Which Area"
  147.  pat 2c "1) Xmodem-1K" "@if iz2,c set z2 1"
  148.  pat 3c "O) Xmodem-1K" "@if iz2,c set z2 o"
  149.  pat 4c "O] Xmodem-1K" "@if iz2,c set z2 o"
  150.  pat 5c "Z) Zmodem" "@set z2 z"
  151.  pat 6c "Z] Zmodem" "@set z2 z"
  152.  pat 7c "\nSelect: " "%s6%z2%s7"
  153.  pat 8c "enter the filename > " "%s6%z0\r"
  154.  pat 9c "ilename to save to > " "%s6%z0\r"
  155.  pat 10c "do you wish to do so?" %s6\&y%s7
  156.  pat 11c "protect this file [\256/\256] ? " %s6%z7%s7
  157.  pat 13c "characters max): " %s6%z8%s7
  158.  pat 14c "\nLine 1: " %s6%z3\r
  159.  pat 15c "\nLine 2: " %s6%z4\r
  160.  pat 16l "\nReady to receive"
  161.  pat 17l "\nREADY TO RECEIVE"
  162.  pat 18l "\nReady to Receive"
  163.  wait -f30;if n bye;ife r nolog close;return
  164.  if 1 mput "%s6%z1%s7";wait -f30;if n bye;ife r nolog close;return
  165.  if 1 mput "%s6?%s7";pat 1c "ile to Which Area" \r;wait -f30;if n bye;ife r nolog close;return
  166.  if 0 goback ulrj
  167.  ife iz2,c sx %z0;ife iz2,1 sx -k %z0;ife iz2,o sx -k %z0;if iz2,z sz -w2048 %z0
  168.  goback ulnx
  169. dupl:
  170.  del %n8/%remote.ul
  171. nupl:
  172.  gosub .%lib/agelist.t;if as0<14 goto nolist
  173.  pat;mput %s6\&L%s7;pat 0i ": "
  174.  wait -f30;if n bye;ife r nolog close;return
  175.  pat;mput %s6\&abcdefghijklmnopqrstuvwxyz\r
  176. wclist:
  177.  pat;pat 0 "2 line descriptions): ";pat 1l "----------------"
  178.  wait -f30;if n bye;ife r nolog close;return
  179.  if 0 pat;pat 0i \n;mput %s6\r pf30 wait -f30;if n bye;ife r nolog close;return
  180.  ife r nolog close;ki;create -y %n7/%remote.lst
  181.  if r split t " ";echof "\T%telno %remote %z1";echof " "
  182.  pat;pat 0c \r\n\r\n "@w"
  183.  pat 1i "\nFILE MENU: "
  184.  pat 2i "remaining for this call"
  185.  pat 23$ "to continue..." \r
  186.  wait -f30;if n bye;ife r nolog close;return
  187.  ki;if r nolog close
  188.  pat 23cp$ "to continue..." \r
  189.  if !1 pat;pat 0 "\nFILE MENU: ";wait -f30;if n bye;ife r nolog close;return
  190. nolist:
  191.  ki;create -+ %n9/ZC%d%ano.LOG
  192.  if !f%n8/%remote.dl goto ndnl
  193.  : Download files listed in <bbs>.dl
  194.  display inhibit;open -!g %n8/%remote.dl;display noinhibit
  195.  ife t goto dlsk;goto ddnl
  196. dlnx:
  197.  pat;pat 0 "\nFILE MENU: ";wait -f50;if n bye;ife r nolog close;return
  198. dlrj:
  199. dlsk:
  200.  ife t grab z1;setc z9 \032 ife t&&Iz1,z9 nolog closetx;if !t goto ddnl
  201.  set z2 c
  202.  pat;mput %s6\&d%s7
  203.  pat 0 "\nFILE MENU: "
  204.  pat 1c "1) Xmodem-1K" "@if iz2,c set z2 1"
  205.  pat 2c "O) Xmodem-1K" "@if iz2,c set z2 o"
  206.  pat 3c "O] Xmodem-1K" "@if iz2,c set z2 o"
  207.  pat 4c "Z] Zmodem" "@set z2 z"
  208.  pat 5c "Z) Zmodem" "@set z2 z"
  209.  pat 6c "\nSelect: " "%s6%z2%s7"
  210.  pat 7c "to \256ownload? " "%s6%z1\r"
  211.  pat 9c "Enter File # \256\256:" "@ife t&&!%z1 grab z1;ife t&&Iz1,z9 nolog closetx;mput %s6 ife t mput %z1;mput \r setc z1 \&"
  212.  pat 11c "f when Completed? [\256/\256] " %s6\&n%s7
  213.  pat 13l "\nReady to Send"
  214.  pat 14l "\nREADY TO SEND"
  215.  pat 15l "\nReady to send"
  216.  wait -f30;if n bye;ife r nolog close;return
  217.  if 0 goback dlrj
  218.  if !iz2,z rc %z1;goback dlnx
  219.  pat;pat 0i "rz\r**\030";wait -f30;if n bye;ife r nolog close;return
  220.  rz -p;goback dlnx
  221. ddnl:
  222.  del %n8/%remote.dl
  223. ndnl:
  224.  mput %s6\&Q%s7
  225.  pat;pat 0 "\nMAIN MENU: ";wait -f30;if n bye;ife r nolog close;return
  226. nofile:
  227.  set z0 "" : %remote.t, if it exists, should set this to "" or "remain"
  228.  if f%lib/%remote.t gosub .%lib/%remote.t;if %z0 ife iz0,remain ena -K!Z goback main;echoc "%remote.t z0 exit error"
  229.  if !c ife r nolog close;return
  230.  pat;lput "\r\n%n1, press alt-N if you want to run the session manually.\r\n"
  231.  pat;pat 24cp "rz\r**\030" "@rz -p";wait -F5;if !c bye;ife r nolog close;return
  232.  pat;mput %s6\&g%s7;wait -f30;ife c bye;ife r nolog close;return
  233.